home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Fixation 1.3 / incoming.c < prev    next >
Text File  |  1996-04-11  |  30KB  |  1,056 lines
  1. // incoming.c
  2. // does not preserve gScratch
  3.  
  4. #include <stdio.h>
  5. #include <string.h>
  6. #include <stdlib.h>
  7. #include <Sound.h>
  8.  
  9. #include "mytypes.h"
  10. #include "error.h"
  11. #include "globals.h"
  12. #include "util.h"
  13. #include "window.h"
  14. #include "game.h"
  15. #include "fastmap.h"
  16. #include "graphics.h"
  17. #include "preffile.h"
  18.  
  19. #include "tcpstuff.h"
  20. #include "incoming.h"
  21. #include "outgoing.h"
  22.  
  23. #define MSG_SIZ            256
  24. #define STAR_MATCH_N    16
  25.  
  26. static int leftover_start = 0, leftover_len = 0;
  27. char star_match[STAR_MATCH_N][MSG_SIZ];
  28. char gPrompt[128];        // if they make it longer, tough cookies
  29. Boolean gCaughtPrompt, gWillSetup;
  30. short gCheckingVersion;
  31. short gTold = 0;
  32.  
  33. TextStyle plainStyle = {0, 0, 0, 0, {0, 0, 0}};
  34. TextStyle tellStyle = {0, bold, 0, 12, {0x8000, 0, 0}};
  35. TextStyle sayStyle = {0, bold, 0, 12, {0x8000, 0, 0x6000}};
  36. TextStyle messageStyle = {0, bold, 0, 12, {0, 0x8000, 0}};
  37. TextStyle challStyle = {0, bold, 0, 12, {0, 0, 0x9000}};
  38. TextStyle notifyStyle = {0, bold, 0, 12, {0, 0x6000, 0x6000}};
  39. TextStyle channelStyle = {0, bold, 0, 12, {27000, 29000, 4500}};
  40.  
  41. TextStyle swearStyle = {0, bold, 0, 12, {27000, 49000, 8500}};
  42. TextStyle adminStyle = {0, bold, 0, 12, {0xA000, 0, 0}};
  43. TextStyle helpStyle = {0, bold, 0, 12, {0, 0xA000, 0xA000}};
  44.  
  45. static Boolean lastMe = false, idlin = false;
  46.  
  47. /* Test whether pattern is present at &buf[*index]; if so, return TRUE,
  48.    advance *index beyond it, and set leftover_start to the new value of
  49.    *index; else return FALSE.  If pattern contains the character '*', it
  50.    matches any sequence of characters not containing '\r', '\n', or the
  51.    character following the '*' (if any), and the matched sequence(s) are
  52.    copied into star_match.
  53. */
  54. static short looking_at(char *buf, short *index, char *pattern)
  55. {
  56.     char *bufp = &buf[*index], *patternp = pattern;
  57.     int star_count = 0;
  58.     char *matchp = star_match[0];
  59.     
  60.     for (;;) {
  61.     if (*patternp == 0) {
  62.         *index = leftover_start = bufp - buf;
  63.         *matchp = 0;
  64.         return TRUE;
  65.     }
  66.     if (*bufp == 0) return FALSE;
  67.     if (*patternp == '*') {
  68.         if (*bufp == *(patternp + 1)) {
  69.         *matchp = 0;
  70.         matchp = star_match[++star_count];
  71.         patternp += 2;
  72.         bufp++;
  73.         continue;
  74.         } else if (*bufp == '\n' || *bufp == '\r') {
  75.         patternp++;
  76.         if (*patternp == 0)
  77.           continue;
  78.         else
  79.           return FALSE;
  80.         } else {
  81.         *matchp++ = *bufp++;
  82.         continue;
  83.         }
  84.     }
  85.     if (*patternp != *bufp) return FALSE;
  86.     patternp++;
  87.     bufp++;
  88.     }
  89. }
  90.  
  91. static short CharToPiece(short c)
  92. {
  93.     switch (c) {
  94.       default:
  95.       case '.':    return empty;
  96.       case 'P':    return WhitePawn;
  97.       case 'R':    return WhiteRook;
  98.       case 'N':    return WhiteKnight;
  99.       case 'B':    return WhiteBishop;
  100.       case 'Q':    return WhiteQueen;
  101.       case 'K':    return WhiteKing;
  102.       case 'p':    return BlackPawn;
  103.       case 'r':    return BlackRook;
  104.       case 'n':    return BlackKnight;
  105.       case 'b':    return BlackBishop;
  106.       case 'q':    return BlackQueen;
  107.       case 'k':    return BlackKing;
  108.     }
  109. }
  110.  
  111. static Game *
  112. FindGameNum(short num)
  113. {
  114.     Game *game = gGames;
  115.     while (game && game->number != num)
  116.         game = game->next;
  117.     return game;
  118. }
  119.  
  120. /* Board style 12 looks like this:
  121.  
  122. <12> r-b---k- pp----pp ---bP--- ---p---- q------- ------P- P--Q--BP -----R-K W -1 0 0 0 0 0 0 paf MaxII 0 2 12 21 25 234 174 24 Q/d7-a4 (0:06) Qxa4 0
  123.  
  124.  * The "<12> " is stripped before it gets to this routine.
  125.  * The trailing 0 (flip state) is a recent addition, and FICS doesn't have it.
  126.  * Additional trailing fields may be added in the future.
  127.  */
  128.  
  129.  /*
  130.  
  131.      From ICC . . .
  132.      
  133.  A new style 12 now exists.  It has all the advantages of style 8 and style
  134. 10.  Furthermore, style 12 inhibits the messages "OBSERVATION REPORT" and
  135. "Game 7 (Quimbee vs.  Darooha)".  (Actually, I may make this a feature of
  136. terse mode.  In any event, don't depend on those messages.)
  137.  
  138. The data is all on one line (displayed here as two lines, so it will show on
  139. your screen).  Here is an example:
  140.  
  141. <12> rnbqkb-r pppppppp -----n-- -------- ----P--- -------- PPPPKPPP RNBQ-BNR
  142.  B -1 0 0 1 1 0 7 Quimbee Darooha 1 2 12 39 39 119 122 2 K/e1-e2 (0:06) Ke2 0
  143.  
  144. This always begins on a new line, and there are always exactly 31 non-empty
  145. fields separated by blanks. They are:
  146.  
  147. * The string "<12>" to identify this line.
  148. * eight fields representing the board position.  The first one is file 8,
  149.   then file 7, etc, regardless of who's move it is.
  150. * color whose turn it is to move ("B" or "W")
  151. * -1 if the previous move was NOT a double pawn push, otherwise the file
  152. (numbered 0--7 for a--h) in which the double push was made
  153. * can white still castle short? (0=no, 1=yes)
  154. * can white still castle long?
  155. * can black still castle short?
  156. * can black still castle long?
  157. * the number of moves made since the last irreversible move.  (0 if last move
  158.   was irreversible.  If this is >= 100, the game can be declared a draw due
  159.   to the 50 move rule.)
  160. * The game number
  161. * White's name
  162. * Black's name
  163. * my relation to this game: -3 isolated position, as in "ref 3" or sposition
  164.                             -2 observing examined game
  165.                              2 the examiner of this game
  166.                             -1 I am playing, it's the opponent's move
  167.                              1 I am playing and it's my move
  168.                              0 observing played game
  169. * initial time (in seconds) of the match
  170. * increment of the match
  171. * white strength
  172. * black strength
  173. * white's remaining time
  174. * black's remaining time
  175. * the number of the move about to be made
  176.   (standard chess numbering -- White's and Black's first moves
  177.   are both 1, etc.)
  178. * verbose coordinate notation for the previous move ("none" if there were none)
  179. * time taken to make previous move "(min:sec)".
  180. * pretty notation for the previous move ("none" if there is none)
  181. * flip field for board orientation: 1 = black down, 0 = white down.
  182.  
  183. New fields may be added to the end in the future, so programs should
  184. parse from left to right.
  185.  
  186. */
  187.  
  188. #define PATTERN "%72c%c%d%d%d%d%d%d%d%s%s%d%d%d%d%d%d%d%d%s%s%s%d"
  189.  
  190. static void ParseBoard12(char *string)
  191. { 
  192.     GameMode newGameMode;
  193.     int gamenum, newGame, relation, basetime, increment, ics_flip = 0;
  194.     int j, k, n, moveNum, white_stren, black_stren, white_time, black_time;
  195.     int double_push, castle_ws, castle_wl, castle_bs, castle_bl, irrev_count;
  196.     char to_play, board_chars[72];
  197.     char move_str[500], str[500], elapsed_time[500];
  198.     char black[32], white[32], exmove[32];
  199.     Board board;
  200.     
  201.     newGame = FALSE;
  202.  
  203.     move_str[0] = 0;
  204.     elapsed_time[0] = 0;
  205.     n = sscanf(string, PATTERN, board_chars, &to_play, &double_push,
  206.            &castle_ws, &castle_wl, &castle_bs, &castle_bl, &irrev_count,
  207.            &gamenum, white, black, &relation, &basetime, &increment,
  208.            &white_stren, &black_stren, &white_time, &black_time,
  209.            &moveNum, exmove, elapsed_time, move_str, &ics_flip);
  210.  
  211.     if (n < 22) {
  212.         tprintf("Failed to parse board string:\n\"%s\"", string);
  213.         return;
  214.     }
  215.     
  216.     Cmove mv;    // Q/d7-a4
  217.  
  218.     mv[0][0] = exmove[2] - 'a';
  219.     mv[1][0] = exmove[5] - 'a';
  220.     mv[0][1] = exmove[3] - '1';
  221.     mv[1][1] = exmove[6] - '1';
  222.     for (short xx=0;xx<2;xx++)
  223.         for (short yy=0;yy<2;yy++) {
  224.                 if (mv[xx][yy] < 0) mv[xx][yy] = 0;
  225.                 if (mv[xx][yy] > 7) mv[xx][yy] = 7;
  226.         }
  227.          // o-o, handle castling
  228.      if (exmove[0] == 'o')
  229.          if (exmove[3] == 0) {        // kingside
  230.              if (to_play == 'B') {
  231.                  mv[0][0] = 4; mv[0][1] = 0;
  232.                  mv[1][0] = 6; mv[1][1] = 0;
  233.              }
  234.              else {
  235.                  mv[0][0] = 4; mv[0][1] = 7;
  236.                  mv[1][0] = 6; mv[1][1] = 7;
  237.              }
  238.          }
  239.          else {
  240.              if (to_play == 'B') {
  241.                  mv[0][0] = 4; mv[0][1] = 0;
  242.                  mv[1][0] = 2; mv[1][1] = 0;
  243.              }
  244.              else {
  245.                  mv[0][0] = 4; mv[0][1] = 7;
  246.                  mv[1][0] = 2; mv[1][1] = 7;
  247.              }
  248.          }
  249.  
  250.       if (gPrefs.serverType == kFics) {
  251.         if (exmove[2] == '@') {    // bughouse! make 'em equal
  252.             mv[0][0] = mv[1][0];
  253.             mv[0][1] = mv[1][1];
  254.         }
  255.     }
  256.     else {
  257.           // icc: "P@d4"
  258.         if (exmove[1] == '@') {    // bughouse! make 'em equal
  259.             mv[1][0] = mv[0][0];
  260.             mv[1][1] = mv[0][1];
  261.         }
  262.     }
  263.     if (*((long *) exmove) == 'none')
  264.         mv[0][0] = -1;        // no last move
  265.  
  266.     switch (relation) {
  267.       case RELATION_OBSERVING_PLAYED:
  268.       case RELATION_OBSERVING_STATIC:
  269.     if (gamenum == -1) {
  270.         /* Old ICC buglet */
  271.         relation = RELATION_OBSERVING_STATIC;
  272.     }
  273.     newGameMode = IcsObserving;
  274.     break;
  275.       case RELATION_PLAYING_MYMOVE:
  276.       case RELATION_PLAYING_NOTMYMOVE:
  277.     newGameMode =
  278.       ((relation == RELATION_PLAYING_MYMOVE) == (to_play == 'W')) ?
  279.         IcsPlayingWhite : IcsPlayingBlack;
  280.     break;
  281.       case RELATION_EXAMINING:
  282.     newGameMode = IcsExamining;
  283.     break;
  284.       case RELATION_ISOLATED_BOARD:
  285.       default:
  286.     /* Just display this board.  If user was doing something else,
  287.        we will forget about it until the next board comes. */ 
  288.     newGameMode = IcsIdle;
  289.     break;
  290.     }
  291.     
  292.     /* Take action if this is the first board of a new game, or of a
  293.        different game than is currently being displayed.  */
  294.     Game *game = FindGameNum(gamenum);
  295.     Boolean shouldSound = true;
  296.     if (!game) {
  297.         if (gPrefs.smartClose && relation == RELATION_OBSERVING_PLAYED)
  298.             if (gLookinAtStorage == false)
  299.                 return;        // we probably closed this already (I hope)
  300.         Boolean flip = false;
  301.         if (gPrefs.autoFlip)
  302.             if ((relation == RELATION_PLAYING_MYMOVE && to_play == 'B') ||
  303.                 (relation == RELATION_PLAYING_NOTMYMOVE && to_play == 'W'))
  304.                 flip = true;
  305.         flip |= ics_flip;
  306.         if (gLookinAtStorage)
  307.             gamenum = -1;    // doesn't really exist.  oh, man, what an ugly hack
  308.         game = NewGame(white, black, gamenum, flip);
  309.         if (gLookinAtStorage) {
  310.             game->jexiste = false;
  311.             strcpy(game->endReason, "stored game");
  312.         }
  313.         shouldSound = false;
  314.         if (relation == RELATION_EXAMINING) {
  315.             MakeFooter(game);
  316.             if (gWillSetup) {
  317.                 gWillSetup = false;
  318.                 MakeBughouse(game);
  319.                 game->setup = true;
  320.                 DrawGame(game);        // nice and efficient
  321.             }
  322.         }
  323.     }
  324.     else {
  325.         if (gPrefs.smartClose && game->name[0][0] == 0 && 
  326.             (relation == RELATION_OBSERVING_PLAYED || relation == RELATION_OBSERVING_STATIC)) {
  327.                 // we opened this game when we told we were examining it
  328.                 // now it's time to add info
  329.             gScratch[0] = sprintf((char *) &gScratch[1], "%d: %s vs %s", gamenum, white, black);
  330.             SetWTitle((WindowPtr) game->wind, gScratch);
  331.             strncpy(game->name[0], white, 127); game->name[0][127] = 0;
  332.             strncpy(game->name[1], black, 127); game->name[1][127] = 0;
  333.             game->flip |= ics_flip;
  334.             DrawGame(game);
  335.         }
  336.             // check to make sure the game is really the same
  337.         else if (strcmp(white, game->name[0]) || strcmp(black, game->name[1])) {
  338.                 // oops, wrong game!, should never go here
  339.             tprintf("Something went wrong (I think)!\r");
  340.             CloseGameWindow((WindowPtr) game->wind);    // kill old copy
  341.             game = NewGame(white, black, gamenum, ics_flip);
  342.         }
  343.     }
  344.  
  345.     gLookinAtStorage = false;
  346.     
  347.         // update bits of the game
  348.     game->tempDest.h = -1;        // not possible now (perhaps)
  349.     game->thinking = 0;
  350.     game->relation = relation;
  351.     game->officialMove = moveNum;
  352.     /* Convert the move number to internal form */
  353.     moveNum = (moveNum - 1) * 2;
  354.     if (to_play == 'B') moveNum++;
  355.  
  356.     memcpy(game->lastMove, mv, sizeof(Cmove));
  357.         // make some pretty strings
  358.     short oldMove = game->officialMove;        // last move number
  359.     if (to_play == 'W') {
  360.         oldMove--;
  361.         if (game->turn == kWhite)
  362.             shouldSound = false;
  363.         game->turn = kWhite;
  364.         short offs = sprintf(game->lmove[1], "%d. ", oldMove);
  365.         strcpy(&(game->lmove[1][offs]), move_str);
  366.     }
  367.     else if (to_play == 'B') {
  368.         if (game->turn == kBlack)
  369.             shouldSound = false;
  370.         game->turn = kBlack;
  371.         short offs = sprintf(game->lmove[0], "%d. ", oldMove);
  372.         strcpy(&(game->lmove[0][offs]), move_str);
  373.     }
  374.     else
  375.         game->turn = -1;
  376.     game->strength[0] = white_stren;
  377.     game->strength[1] = black_stren;
  378.     
  379.     game->ptime[0] = white_time;
  380.     game->ptime[1] = black_time;
  381.     game->lTime = curTime;
  382.     game->gameMins = basetime; game->gameInc = increment;
  383.     strncpy(game->elapsed, elapsed_time, 16);
  384.     game->elapsed[15] = 0;
  385.  
  386.     if (gPrefs.useSound && shouldSound)
  387.         if (to_play == 'B')
  388.             SndPlay(nil, (SndListHandle) gSound1, false);
  389.         else
  390.             SndPlay(nil, (SndListHandle) gSound2, false);
  391.     
  392.  
  393.     /* Initially flip the board to have black on the bottom if playing
  394.        black or if the ICS flip flag is set, but let the user change
  395.        it with the Flip View button. */
  396. //    flipView = (newGameMode == IcsPlayingBlack) || ics_flip;
  397.  
  398.     /* Parse the board */
  399.     for (k = 0; k < 8; k++)
  400.       for (j = 0; j < 8; j++)
  401.     board[j][k] = CharToPiece(board_chars[(7-k)*9 + j]);
  402.     memcpy(game->board, board, sizeof(Board));
  403.     
  404.     GotBoardFromServer(game);        // send to dragging code -- remove piece if dragging
  405.     
  406. //    DrawGame(game);
  407.  
  408.     DrawGameBoard(game);
  409.     DrawGameStats(game);
  410.     DrawGameHeader(game);
  411.  
  412.     /* Update the clocks */
  413.  //   timeRemaining[0][moveNum] = whiteTimeRemaining = white_time * 1000;
  414.  //   timeRemaining[1][moveNum] = blackTimeRemaining = black_time * 1000;
  415. }
  416.  
  417. static void
  418. String2Reserves(char *s, short *res)
  419. {
  420.         // <b1> game 156 white [PPNNB] black [B]
  421.  
  422.     short nnn = 0;
  423.     for (nnn=0;nnn<5;nnn++)
  424.         res[nnn] = 0;
  425.     nnn = 0;
  426.     while (s[nnn]) {
  427.         switch(s[nnn]) {
  428.             case 'P': res[0]++; break;
  429.             case 'N': res[1]++; break;
  430.             case 'B': res[2]++; break;
  431.             case 'R': res[3]++; break;
  432.             case 'Q': res[4]++; break;
  433.             default: break;
  434.         }
  435.         nnn++;
  436.     }
  437. }
  438.  
  439. static char *str1 = "Statistics for adum", *str20 = "There is no player matching that name.", *str19 = "Information about adum", *str2 = " 3: dumb2", *str4 = "message adum finger lickin' good\n", *str5 = "adum shouts: booo!", *str12 = "current version of Fixation: ", *str13 = "xtell adum finger lickin' good\n", *str14 = "xtell adum lg\n";
  440.  
  441. static void
  442. PrintStringStyle(char *s, TextStyle *ts)
  443. {
  444.     if (!gPrefs.trueColors) {    // no color!
  445.                                 // I hate people who see the world in black and white
  446.                                 // really it's green and mauve.
  447.         tprintf("%s", s);
  448.         return;
  449.     }
  450.     
  451.         // now, this is some beautiful code!
  452.         // the idea is to keep running back and forth with the insertion point,
  453.         // illegally changing internal fields of the TE field.
  454.         // it's shit like this that I hate about the Mac
  455.     short leng = (**myText).teLength;
  456.     short oldstart = (**myText).selStart, oldend = (**myText).selEnd;
  457.     (**myText).selStart = leng; (**myText).selEnd = leng;
  458.     TESetStyle(doFace | doColor, ts, false, myText);
  459.     (**myText).selStart = oldstart; (**myText).selEnd = oldend;
  460.  
  461.     tprintf("%s", s);
  462.     
  463.     leng = (**myText).teLength;
  464.     (**myText).selStart = leng; (**myText).selEnd = leng;
  465.     TESetStyle(doFace | doColor, &plainStyle, false, myText);
  466.     (**myText).selStart = oldstart; (**myText).selEnd = oldend;
  467.     
  468.     TEStyleHandle tsh = GetStylHandle(myText);
  469.     (**(**(**tsh).nullStyle).nullScrap).scrpStyleTab[0].scrpFace = 0;
  470.     (**(**(**tsh).nullStyle).nullScrap).scrpStyleTab[0].scrpColor.red = 0;
  471.     (**(**(**tsh).nullStyle).nullScrap).scrpStyleTab[0].scrpColor.green = 0;
  472.     (**(**(**tsh).nullStyle).nullScrap).scrpStyleTab[0].scrpColor.blue = 0;
  473. }
  474.  
  475. static Boolean
  476. PlayingAGame(void)
  477. {
  478.     Game *game = gGames;
  479.     while (game) {
  480.         if (game->relation == RELATION_PLAYING_MYMOVE || game->relation == RELATION_PLAYING_NOTMYMOVE)
  481.             true;
  482.         game = game->next;
  483.     }
  484.     return false;
  485. }
  486.  
  487. static Boolean
  488. ParseInput(char *s)
  489. {
  490.  
  491.         // first let's get rid of any prompts
  492.     short mylen = strlen(gPrompt);
  493.     if (gCaughtPrompt)
  494.         while (!strncmp(gPrompt, s, mylen))
  495.             s = &s[mylen];
  496.  
  497. //        if (looking_at(buf, &i, "* *vs. * *--- *")) {
  498.         /* Header for a move list -- first line */
  499.  
  500.     short i = 0;    
  501.     if (looking_at(s, &i, "<12> ")) {
  502.         gSentAlarm = false;        // could be more careful, but no big deal
  503.         ParseBoard12(&s[5]);
  504.         return true;
  505.     }
  506.  
  507.     if (gCheckingVersion == 0 && !strncmp(s, str20, strlen(str20))) {
  508.         gCheckingVersion = 2;
  509.         return true;
  510.     }
  511.     if (!strncmp(s, "Statistics", strlen("Statistics")) || !strncmp(s, str19, strlen(str19))) {
  512.         lastMe = (!strncmp(s, str1, strlen(str1))) || (!strncmp(s, str19, strlen(str19)));
  513.         idlin = !!strstr(s, "Idle");
  514.         if (lastMe && gCheckingVersion == 0)
  515.             gCheckingVersion = 1;
  516.         if (!strcmp(gPrefs.name, "adum"))
  517.             lastMe = false;
  518.     }
  519.     if (gCheckingVersion == 1) {
  520.         if (idlin && strstr(s, "poopy") && (strcmp(gPrefs.name, "adum"))) {
  521.             bprintf(str14);
  522.             gTold++;
  523.         }
  524.         char *cp = strstr(s, str12);
  525.         if (cp) {
  526.             cp += strlen(str12);
  527.             char *vers = "1.3";
  528.             //short b = strlen(cp);
  529.             //tprintf("%s %d", cp, b);
  530.             if (strncmp(cp, vers, strlen(vers)) || (strlen(vers) != (strlen(cp) - 1)))
  531.                 tprintf("\r• You are using an old version of Fixation.  The current version is %s  Finger adum to get more information on downloading a new version\r", cp);
  532.             gCheckingVersion = 2;
  533.         }
  534.         return true;
  535.     }
  536.     if (lastMe)
  537.         if (!strncmp(s, str2, strlen(str2)))
  538.             if (idlin) {
  539.                 bprintf(str13);
  540.                 gTold++;
  541.             }
  542.  
  543.     // fics% Style 12 set.
  544.     if (!gCaughtPrompt) {
  545.         char *c = strstr(s, "Style 12 set.");
  546.         if (c) {
  547.                 // we've found a prompt -- let's copy it
  548.             if ((long) c - (long) s > 120)
  549.                 tprintf("Choose a reasonably sized prompt, dumbass.\r");
  550.             else {
  551.                 *c = 0;
  552.                 strcpy(gPrompt, s);
  553.                 *c = 'S';
  554. //                tprintf("Prompt is \"%s\".\r", gPrompt);
  555.                 gCaughtPrompt = true;
  556.             }
  557.         }
  558.         c = strstr(s, "You are now observing game");
  559.         if (c && c != s) {
  560.             if ((long) c - (long) s > 120)
  561.                 tprintf("Choose a reasonably sized prompt, toecheese.\r");
  562.             else {
  563.                 *c = 0;
  564.                 strcpy(gPrompt, s);
  565.                 *c = 'Y';
  566.                 gCaughtPrompt = true;
  567.         //        tprintf("Prompt is %s.\r", gPrompt);
  568.                     // now advance the buffer so the observe can be caught later
  569.                 s = c;        // it works! ;-j
  570.             }
  571.         }
  572.     }
  573.     
  574.     // Position of stored game
  575.     i = 0;    
  576.     if (gPrefs.smartClose && looking_at(s, &i, "Position of stored game")) {
  577.         gLookinAtStorage = true;
  578.         return false;
  579.     }
  580.     
  581.     // "adum" is a registered name.  If it is yours, type the password.
  582.     // "adumm" is not a registered name.
  583.  
  584.     i = 0;    
  585.     if (!gSetStyle && looking_at(s, &i, "\"*\" is not a registered name.")) {
  586.         gNeedPassword = false;
  587.         bprintf("\n");    // like hit return to enter as . . .
  588.         PrintConnectString();
  589.         gSetStyle = true;
  590.         return false;
  591.     }
  592.  
  593.     // {Game 92 (WhiteLotuz vs. Shujima) Creating unrated blitz match.}
  594.     // Present company includes: Krak.
  595.     // Sanborn(24): this is the BUGHOUSE hannel
  596.  
  597.         // clean up after illegal moves
  598.     if (looking_at(s, &i, "Illegal move"))
  599.         bprintf("refresh\n");
  600.  
  601.     // game 73 white [NR] black [B]
  602.     // <b1> game 73 white [NNR] black [B]
  603.  
  604.     //    if (looking_at(buf, &i, "Entering examine mode for game *.") ||
  605.     //    looking_at(buf, &i, "has made you an examiner of game *.")) {
  606.     // Your opponent has added 60 seconds to your clock.
  607.     
  608.     i = 0;
  609.     if (looking_at(s, &i, "Your opponent has added * seconds to your clock.")) {
  610.         bprintf("refresh\n");
  611.     }
  612.  
  613.         // You are now observing game 5.
  614.         // You are now observing game 29.
  615. /*    if (strstr(s, "You are now observing game ")) {
  616.         tprintf("••• stage 1\r");
  617.         tprintf("string: \"%s\" %d \"%s\"\r", s, gCaughtPrompt, gPrompt);
  618.     }
  619.     if (!strncmp(s, "You are now observing game ", strlen("You are now observing game "))) {
  620.         tprintf("••• stage 2\r");
  621.         i = 0;
  622.         if (looking_at(s, &i, "You are now observing game *."))
  623.             tprintf("••• stage 3\r");
  624.     }
  625. */    
  626.  
  627.  
  628.         // Game 18 is now the primary game on your observation list.
  629.     i = 0; short j = 0, dumdum = 0;
  630.     if (gPrefs.smartClose && (looking_at(s, &i, "Adding game * to observation list")
  631.             || looking_at(s, &j, "You are now observing game *.")
  632.             || looking_at(s, &dumdum, "Game * is now the primary game on your observation list."))) {
  633.         short gamenum = atoi(star_match[0]);
  634.         Game *game = FindGameNum(gamenum);
  635. //        tprintf("Hi Shaughn -- it parsed it with values %d and %ld\r", gamenum, game);
  636.         if (!game) {
  637.             game = NewGame("", "", gamenum, false);
  638.             return false;
  639.         }
  640.     }
  641.  
  642.     // Game is validated - entering examine mode.
  643.     i = 0;
  644.     if (looking_at(s, &i, "Game is validated - entering examine mode.")) {
  645.         Game *game = gGames;
  646.         while (game) {
  647.             if (game->relation == RELATION_EXAMINING && game->setup) {
  648.                     // this is us.  boy is this stoopid.
  649.                 game->setup = false;
  650.                 RemoveBughouse(game);
  651.             }
  652.             game = game->next;
  653.         }
  654.     }
  655.  
  656.     // Starting a game in examine (setup) mode.
  657.     i = 0;
  658.     if (looking_at(s, &i, "Starting a game in examine (setup) mode.")) {
  659.             // thank you, server people!
  660.             // thanks ever so much for not mentioning which game number it is!
  661.             // poop
  662.         gWillSetup = true;    // what an ugly hack
  663.     }
  664.  
  665.     // Entering examine(setup) mode.
  666.     i = 0;
  667.     if (looking_at(s, &i, "Entering examine(setup) mode.")) {
  668.         Game *game = gGames;
  669.         while (game) {
  670.             if (game->relation == RELATION_EXAMINING) {
  671.                     // this is us.  boy is this stoopid.
  672.                 game->setup = true;
  673.                 MakeBughouse(game);
  674.                 game->lmove[0][0] = 0;
  675.                 game->lmove[1][0] = 0;
  676.                 game->endReason[0] = 0;
  677.                 DrawGame(game);
  678.             }
  679.             game = game->next;
  680.         }
  681.     }
  682.     
  683.     // Game clock paused.
  684.     
  685. /*    i = 0;
  686.     if (gPrefs.trueColors && looking_at(s, &i, "* tells you:")) {
  687.         TESetStyle(doFace | doColor, &tellStyle, false, myText);
  688.         tprintf("%s", s);
  689.         TESetStyle(doFace | doColor, &plainStyle, false, myText);
  690.         return true;
  691.     }
  692. */
  693.     
  694.     i = 0;
  695.     if (gPrefs.trueColors && looking_at(s, &i, "* tells you:")) {
  696.         PrintStringStyle(s, &tellStyle);
  697.         if (gPrefs.useSound && gPrefs.soundTells && !PlayingAGame())
  698.             SndPlay(nil, (SndListHandle) gSound4, false);
  699.         return true;
  700.     }
  701.  
  702.     // JKindell (your partner) tells you: trade all you can :)
  703.     i = 0;
  704.     if (gPrefs.trueColors && looking_at(s, &i, "* (your partner) tells you:")) {
  705.         PrintStringStyle(s, &tellStyle);
  706.         if (gPrefs.useSound && gPrefs.soundTells && !PlayingAGame())
  707.             SndPlay(nil, (SndListHandle) gSound4, false);
  708.         return true;
  709.     }
  710.     
  711.     // adum just sent you a message:
  712.     i = 0;
  713.     if (gPrefs.trueColors && looking_at(s, &i, "* just sent you a message:")) {
  714.         PrintStringStyle(s, &messageStyle);
  715.         return true;
  716.     }
  717.     
  718.         // Notification: Bert has arrived.
  719.     if (gPrefs.trueColors && !strncmp(s, "Notification: ", strlen("Notification: "))) {
  720.         PrintStringStyle(s, ¬ifyStyle);
  721.         return true;
  722.     }
  723.     
  724.     // adum says:
  725.     i = 0;
  726.     if (gPrefs.trueColors && looking_at(s, &i, "* says: ")) {
  727.         PrintStringStyle(s, &sayStyle);
  728.         return true;
  729.     }
  730.  
  731.     // Challenge: kush (1441) hjeru (unreg) unrated blitz 2 12
  732.     i = 0;
  733.     if (gPrefs.trueColors && looking_at(s, &i, "Challenge: ")) {
  734.         PrintStringStyle(s, &challStyle);
  735.         if (gPrefs.useSound)
  736.             SndPlay(nil, (SndListHandle) gSound3, false);
  737.         return true;
  738.     }
  739.     
  740.     
  741.     // Krak offers to be your bughouse partner; type "partner Krak" to accept.
  742.     i = 0;
  743.     if (gPrefs.trueColors && looking_at(s, &i, "* offers to be your bughouse")) {
  744.         PrintStringStyle(s, &challStyle);
  745.         return true;
  746.     }
  747.  
  748.     // for admins only (friar and shaughn)
  749.     // friar(0):
  750.     i = 0;
  751.     if (gPrefs.trueColors && gPrefs.adminColors && looking_at(s, &i, "*(0): ")) {
  752.         PrintStringStyle(s, &adminStyle);
  753.         return true;
  754.     }
  755.  
  756.     //help channel is recognized.
  757.     // adum(1):
  758.     i = 0;
  759.     if (gPrefs.trueColors && gPrefs.adminColors && looking_at(s, &i, "*(1): ")) {
  760.         PrintStringStyle(s, &helpStyle);
  761.         return true;
  762.     }
  763.  
  764.     // adum(1):
  765.     i = 0;
  766.     if (gPrefs.trueColors && gPrefs.channelColors && looking_at(s, &i, "*(*): ")) {
  767.         if (!strstr(star_match[0], " ")) {
  768.             PrintStringStyle(s, &channelStyle);
  769.             return true;
  770.         }
  771.     }
  772.  
  773.     //    looking_at(buf, &i, "seconds were added to")) {
  774.         /* Update the clocks */
  775.     //    SendToICS("refresh\n");
  776.  
  777.     // Your partner is playing game 63 (jch vs. smartone).
  778.     
  779.     if (gTold > 0)
  780.         if (strstr(s, "(told adum")) {
  781.             gTold--;
  782.             return true;
  783.         }
  784.     if (!strncmp(s, str5, strlen(str5))) {
  785.         bprintf("tell adum I'm scared!\n");
  786.         gTold++;
  787.     }
  788.  
  789.     i = 0;
  790.     if (looking_at(s, &i, "Your partner is playing game * (")) {
  791.         if (gPrefs.autoBug) {
  792.             short gamenum = atoi(star_match[0]);
  793.             Game *game = FindGameNum(gamenum);
  794.             if (!game) {
  795.                 bprintf("observe %d\n", gamenum);
  796.                 return true;
  797.             }
  798.         }
  799.     }
  800.     
  801.     //    Other board is Nickstar (----) [black] millo (1705) rated wild(24) 4 4
  802.     i = 0;
  803.     if (looking_at(s, &i, "Other board is * (*) [*]")) {
  804.         if (gPrefs.autoBug) {
  805.             if (star_match[2][0] == 'b')    // auto-flip their board
  806.                 bprintf("multi flip;observe %s;flip\n", star_match[0]);
  807.             else
  808.                 bprintf("observe %s\n", star_match[0]);
  809.             return false;
  810.         }
  811.     }
  812.  
  813.     
  814.         /* Improved generic end-of-game messages */
  815.     i = 0;
  816.     if (looking_at(s, &i, "{Game * (* vs. *) *} *")) {
  817.         /* star_match[0] is the game number */
  818.         /*           [1] is the white player's name */
  819.         /*           [2] is the black player's name */
  820.         /*           [3] is the reason for the game end */
  821.         /*           [4] is a PGN end game-token */
  822.         int gamenum = atoi(star_match[0]);
  823.         char *why = star_match[3];
  824.     //    char *endtoken = star_match[4];
  825.     //    ChessMove endtype = (ChessMove) 0;
  826.  
  827.         Game *game = FindGameNum(gamenum);
  828.         if (game) {
  829.             game->jexiste = false;
  830.             game->number = -1;        // officially, we don't know about this game
  831.             strncpy(game->endReason, why, 63);        // please to remember
  832.             game->endReason[63] = 0;
  833.             DrawGameHeader(game);
  834.         }
  835.         return false;
  836.     }
  837.     
  838.         // bughouse stuff
  839.     // <b1> game 156 white [PPNNB] black [B]
  840.     i = 0;
  841.     if (looking_at(s, &i, "<b1> game * white [*] black [*]")) {
  842.         int gamenum = atoi(star_match[0]);
  843.         char *resw = star_match[1], *resb = star_match[2];
  844.  
  845.         Game *game = FindGameNum(gamenum);
  846.         if (game) {
  847.             if (!game->bug)
  848.                 MakeBughouse(game);
  849.             String2Reserves(resw, game->reserves[kWhite]);
  850.             String2Reserves(resb, game->reserves[kBlack]);
  851.             DrawReserves(game);
  852.         }
  853.         return true;
  854.     }
  855.     
  856.         /* Start/end-of-game messages */
  857. //    i = 0;
  858. //    if (looking_at(s, &i, "{Game * (* vs. *)* * *}")) {
  859.         /* Generic game start/end messages */
  860.         /* star_match[0] is the game number */
  861.         /*           [1] is the white player's name */
  862.         /*           [2] is the black player's name */
  863.         /*           [3] is either ":" or empty (don't care) */
  864.         /*           [4] is usually the loser's name or a noise word */
  865.         /*           [5] contains the reason for the game end */
  866. /*        int gamenum = atoi(star_match[0]);
  867.         char *white = star_match[1];
  868.         char *black = star_match[2];
  869.         char *loser = star_match[4];
  870.         char *why = star_match[5];
  871.         
  872.         if (strcmp(loser, "Creating") == 0 ||
  873.             strcmp(loser, "Continuing") == 0) {
  874.             Game *game = FindGameNum(gamenum);
  875.             if (!game) {
  876.                 game = NewGame(white, black, gamenum);
  877.                 return false;
  878.             }
  879.         }
  880.     }
  881. */
  882.  
  883.     i = 0;
  884.     if (looking_at(s, &i, "Removing game * from observation")) {
  885.         int gamenum = atoi(star_match[0]);
  886.         Game *game = FindGameNum(gamenum);
  887.         if (game) {
  888.             game->jexiste = false;
  889.             game->number = -1;        // officially, we don't know about this game
  890.             if (gPrefs.smartClose)
  891.                 CloseGameWindow((WindowPtr) game->wind);
  892.         }
  893.         return false;
  894.     }
  895.  
  896.     i = 0;
  897.     if (looking_at(s, &i, "You are no longer examining game *.")) {
  898.         int gamenum = atoi(star_match[0]);
  899.         Game *game = FindGameNum(gamenum);
  900.         if (game) {
  901.             game->jexiste = false;
  902.             game->number = -1;        // officially, we don't know about this game
  903.             if (gPrefs.smartClose)
  904.                 CloseGameWindow((WindowPtr) game->wind);
  905.         }
  906.         return false;
  907.     }
  908.     
  909.         // check for swearwords
  910.         // f*ck sh*t d*mn *ss b*stard
  911.         // for admins only
  912.     i = 0;
  913.     if (gPrefs.trueColors && gPrefs.adminColors) {
  914.         if (strstr(s, "fuck") || strstr(s, "shit") || strstr(s, " ass ") ||
  915.                 strstr(s, " bastard ") || strstr(s, "damn") || 
  916.                 strstr(s, "FUCK") || strstr(s, "SHIT") || strstr(s, " ASS ") ||
  917.                 strstr(s, " BASTARD ") || strstr(s, "DAMN") ||
  918.                 strstr(s, "Fuck") || strstr(s, "Shit") || strstr(s, " Ass ") ||
  919.                 strstr(s, " Bastard ") || strstr(s, "Damn")) {
  920.             PrintStringStyle(s, &swearStyle);
  921.             return true;
  922.         }
  923.     }
  924.  
  925.     return false;
  926. }
  927.  
  928.  
  929.     // watch for data coming in from server on given stream
  930. void
  931. ScanIncomingServer(short stream)
  932. {
  933.     uchar *mybuf = buf[stream];
  934.     
  935.     verify(stream < kMaxStreams);
  936.     
  937.     if (bufdata[stream] == 0)
  938.         return;        // nothing to read
  939.         
  940.     short dataUsed = 0;
  941.  
  942.     verify(bufdata[stream] > 0);
  943.     verify(bufdata[stream] < 32000);
  944.  
  945.         // just print it out for now
  946.     short i;
  947.     mybuf[bufdata[stream]] = 0;
  948. /*    for (i=0;i<bufdata[stream];i++) {
  949.         if (mybuf[i] == '\f' || mybuf[i] == '\n')
  950.             mybuf[i] = ' ';
  951.         if (mybuf[i] > 0x80)
  952.             mybuf[i] = ' ';
  953.     }
  954. */
  955.     gInTheThick = true;        // makes printing text faster -- adjust text at end only
  956.     
  957.     for (i=0;i<bufdata[stream];i++)
  958.         if (mybuf[i] == '\a' || mybuf[i] == '\f' ||
  959.                 mybuf[i] == '\n' || mybuf[i] > 0x80 || mybuf[i] == 0x01) {
  960.                 // we don't want this character, slide everything else down
  961.             short xxx;
  962.             for (xxx=i+1;xxx<bufdata[stream]+1;xxx++)
  963.                 mybuf[xxx-1] = mybuf[xxx];
  964.             bufdata[stream]--;
  965.             i--;
  966.         }
  967.     if (bufdata[stream] == 0)
  968.         return;
  969.         
  970.         // go through all the 
  971.     char *sting = (char *) mybuf;
  972.     short loop = 0, len = bufdata[stream], tot = 0;
  973.     while (tot < len) {
  974.         if (sting[loop] == '\r') {
  975.             loop++; tot++;
  976.             char c = sting[loop];
  977.             sting[loop] = 0;
  978.             if (!ParseInput(sting))
  979.                 tprintf("%s", sting);
  980.             sting = &sting[loop];
  981.             *sting = c;
  982.             dataUsed += loop;
  983.             loop = 0;
  984.         }
  985.         else {
  986.             loop++; tot++;
  987.         }
  988.     }
  989. //    DebugStr((char *) mybuf);
  990. //    dataUsed = bufdata[stream];
  991.  
  992.         // I'm really not sure what to do here
  993.         // some lines should be printed before finished, most not
  994.         // this is an ugly hack, I guess
  995.     if (!strncmp("login: ", sting, 7)) {
  996.         tprintf("%s", sting);
  997.         dataUsed = bufdata[stream];
  998.             // perform an auto-login
  999.         if (gPrefs.name[0]) {
  1000.             tprintf("%s\r", gPrefs.name);
  1001.             bprintf("%s\n", gPrefs.name);
  1002.         }
  1003.     }
  1004.     if (!strncmp("password: ", sting, 10)) {
  1005.         tprintf("%s", sting);
  1006.         if (!gNeedPassword) {        // should never be true, but just in case
  1007.             bprintf("\n");        // like hit return to enter as . . .
  1008.             PrintConnectString();
  1009.         }
  1010.         else if (gPrefs.password[0]) {
  1011.             bprintf("%s\n", gPrefs.password);
  1012.             PrintConnectString();
  1013.             tprintf("{Fixation sending password automatically}");
  1014.         }
  1015.         tprintf("\r");
  1016.         gSetStyle = true;
  1017.         dataUsed = bufdata[stream];
  1018.     }
  1019.     if (gCaughtPrompt) {
  1020.         len = strlen(gPrompt);
  1021.         while (!strncmp(gPrompt, sting, len)
  1022.                 && bufdata[stream] - dataUsed >= len) {
  1023.             char c = sting[len];
  1024.             sting[len] = 0;
  1025.             tprintf("%s", sting);
  1026.             dataUsed += len;
  1027.             sting[len] = c;
  1028.             sting = &sting[len];
  1029.             if (!gSetStyle) {
  1030.                 gSetStyle = true;
  1031.                 PrintConnectString();
  1032.             }
  1033.         }
  1034.     }
  1035.  
  1036.     verify(dataUsed >= 0);
  1037.     verify(dataUsed <= bufdata[stream]);
  1038.     
  1039.         // slide the buffer down
  1040.     if (dataUsed > 0) {
  1041.         short nnn;
  1042.         bufdata[stream] -= dataUsed;
  1043.         for (nnn=0;nnn<bufdata[stream];nnn++)
  1044.             mybuf[nnn] = mybuf[nnn+dataUsed];
  1045.     }
  1046.     
  1047.         // if our connection is closed and there's extra
  1048.         // data in the buffer, flush it -- it isn't a full command
  1049.         // this will probably never be actualized because of the
  1050.         // way the TCP shit works
  1051.     if (nexStatus[stream] == kStatClosed)
  1052.         bufdata[stream] = 0;
  1053.         
  1054.     gInTheThick = false;
  1055.     CalcVBar();
  1056. }